home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 44 / PC Actual CD 44.iso / Linux / Cygwin / full.exe / Disk1 / data1.cab / Tools / share / tix4.1 / pref / TkWin.fsc < prev   
Encoding:
Text File  |  1998-12-04  |  1.6 KB  |  32 lines
  1. proc tixPref:InitFontSet:TkWin {} { 
  2.  
  3.  
  4.     global tixOption
  5.  
  6.     set tixOption(font)         "windows-message"
  7.     set tixOption(bold_font)    "windows-status"
  8.     set tixOption(menu_font)    "windows-menu"
  9.     set tixOption(italic_font)  "windows-message"
  10.     set tixOption(fixed_font)   "systemfixed"
  11.     set tixOption(border1)      1
  12.  
  13. }
  14. proc tixPref:SetFontSet:TkWin {} { 
  15. global tixOption
  16. option add *Menu.font            $tixOption(menu_font) $tixOption(prioLevel)
  17. option add *TixMenu.font            $tixOption(menu_font) $tixOption(prioLevel)
  18. option add *Menubutton.font            $tixOption(menu_font) $tixOption(prioLevel)
  19. option add *Label.font                  $tixOption(bold_font) $tixOption(prioLevel)
  20. option add *Scale.font            $tixOption(italic_font) $tixOption(prioLevel)
  21. option add *TixBalloon*Label.font             $tixOption(font) $tixOption(prioLevel)
  22. option add *TixBitmapButton*label.font             $tixOption(font) $tixOption(prioLevel)
  23. option add *TixControl*label.font                  $tixOption(bold_font) $tixOption(prioLevel)
  24. option add *TixLabelEntry*label.font                  $tixOption(bold_font) $tixOption(prioLevel)
  25. option add *TixLabelFrame*label.font              $tixOption(bold_font) $tixOption(prioLevel)
  26. option add *TixMwmClient*title.font            $tixOption(menu_font) $tixOption(prioLevel)
  27. option add *TixNoteBook.nbframe.font            $tixOption(menu_font) $tixOption(prioLevel)
  28. option add *TixOptionMenu*menubutton.font        $tixOption(font) $tixOption(prioLevel)
  29. option add *TixComboBox*Entry.font                $tixOption(font) $tixOption(prioLevel)
  30. option add *TixFileSelectBox*Label.font                    $tixOption(bold_font) $tixOption(prioLevel)
  31. }
  32.